BBS in a Box 5/BBS in a Box -Volume V (BBS in a Box) (April 1992).iso/Files/Util/U-V/UseLogger.cpt/UseLog/card_2887.txt

Text File | 1987-10-06 | 4.6 KB | 194 lines

-- card: 2887 from stack: in
-- bmap block id: 7624
-- flags: 0000
-- background id: 2768
-- name: Main Entry Card
----- HyperTalk script -----
on deinstall
  -- Script Deinstaller
  -- Rich Taylor, 10/5/87
  set cursor to 4 -- hourglass
  -- grab destination from field
  put card field "Where Install" into where
  put script of where into sHolder
  -- Now, delete all text ranges delimited by UseLog comments
  put offset ("-- UseLog Begin", sHolder) into startOff
  repeat while startOff <> 0
    put offset ("-- UseLog End", sHolder) into endOff
    -- Now, chop out all characters between startOff and endOff
    put endOff - startOff into segLen
    add 14 to segLen  -- length of "-- UseLog End"
    repeat for segLen  -- zap it....
      delete character startOff of sHolder
    end repeat
    -- prepare/test for next segment
    put offset ("-- UseLog Begin", sHolder) into startOff
  end repeat
  -- stick result into destination......
  set script of where to sHolder
  set cursor to 1 -- browser hand
end deinstall


-- part 1 (button)
-- low flags: 00
-- high flags: 0002
-- rect: left=236 top=105 right=134 bottom=280
-- title width / last selected line: 0
-- icon id / first selected line: 11045 / 11045
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  go home
end mouseUp



-- part 2 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=109 top=109 right=131 bottom=209
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Look At Log
----- HyperTalk script -----
on mouseUp
  go to card id 3821
end mouseUp




-- part 4 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=332 top=101 right=150 bottom=372
-- title width / last selected line: 0
-- icon id / first selected line: 14767 / 14767
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Help
----- HyperTalk script -----
on mouseUp
  go to card "Help 1"
end mouseUp




-- part 5 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=332 top=279 right=301 bottom=496
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: De-Install Use Logging
----- HyperTalk script -----
on mouseUp
  deinstall
end mouseUp



-- part 10 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=7 top=279 right=301 bottom=171
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Install Use Logging
----- HyperTalk script -----
on mouseUp
  -- Script Installer
  -- Rich Taylor, 10/5/87
  answer "Are you sure?" with "Yes" or "No"
  if it is "No"
  then exit mouseUp
  -- get script to modify
  put script of (card field "Where Install") into sHolder
  -- step through fields of this background, installing each
  go to next
  put name of this background into sBkgnd
  put sBkgnd into here
  repeat while here = sBkgnd
    -- copy field "Script Segment" into sHolder based on field "Where"
    put card field "Where" into where
    put last word of where into find
    delete first char of find  -- zap opening quote
    delete last char of find   -- zap closing quote
    put offset(find, sHolder) into loc
    if first word of where is "after"
    then add length(find) to loc
    if first word of where is "before"
    then put card field "Script Segment" before character loc of sHolder
  else put card field "Script Segment" after character loc of sHolder
  -- next card, check background...
  go to next
  put name of this background into here
end repeat
go to first card
set script of (card field "Where Install") to sHolder
put "" into card field "Log" of card "Log Card"
end mouseUp



-- part 11 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=173 top=314 right=336 bottom=336
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: See Scripts
----- HyperTalk script -----
on mouseUp
  go to next
end mouseUp



-- part 12 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=187 top=281 right=300 bottom=318
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 4
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Where Install


-- part contents for card part 12
----- text -----
stack "Home"